0 GOTO 10
10 CLR:RAUM=16:BE$="[200]ALLO!":PA=1
20 REM ********************************
30 REM *   STERNEN - HERO             *
40 REM * EIN TEILADVENTURE ZUM ANREIZ *
50 REM * EXCLUSIV FUER DT.   BANANA J.*
60 REM ********************************
70 :
80 :
90 :
95 POKE53280,0:POKE53281,0:PRINT"[147]"
96 GOTO 63010
100 REM *******************************
105 GOSUB 55000:REM TITEL
110 IF RAUM=  2 THEN 50000:REM  BUS
120 IF RAUM=  5 AND DO=1 THEN51300
122 IF RAUM=  5 AND FW=1 THEN51200
124 IF RAUM=  5 THEN 50100:
130 IF RAUM=  6 THEN 50200:REM  STRASSE
140 IF RAUM=  7 THEN 50300:REM  PLAKAT
150 IF RAUM=  9 THEN 50400:REM  M UND M
160 IF RAUM= 10 THEN 50500:REM  INNENS
170 IF RAUM= 11 AND AUTEMAT THEN 51100
175 IF RAUM= 11 THEN 50600:
180 IF RAUM= 13 THEN 50700:REM  LASERS
190 IF RAUM= 14 THEN 50800:REM  GRAFITY
200 IF RAUM= 15 THEN 50900:REM  GASSE
210 IF RAUM= 16 THEN 51000:REM  HAUPTQ
999 :
1000 REM ******************************
1001 REM *                            *
1002 REM ******************************
1003 :
1010 PRINT" [159][204]ETZTER [194]EFEHL = [146] ";BEFEHL$
1020 INPUT" [215]AS NUN, [204]UCK   ";BEFEHL$
1030 :
1050 IF BEFEHL$="N"ORBE$="NORDEN" THEN 3000
1060 IF BEFEHL$="S"ORBE$="SUEDEN" THEN 3100
1070 IF BEFEHL$="W"ORBE$="WESTEN" THEN 3200
1080 IF BEFEHL$="O"ORBE$="OSTEN"  THEN 3300
1090 IF BEFEHL$=""THEN PRINT"[158][214]ON NICHTS KOMMT NICHTS!":GOTO 1000
1100 IF BEFEHL$="HILFE"ORBE$="VERBEN"THEN 60000
1110 IF BEFEHL$="BLICK"ORBE$="BLICKE" THEN 100
1120 IF BEFEHL$="LISTE"ORBE$="INVENTAR" THEN 60100
1130 IF BEFEHL$="LOAD"ORBE$="LADE"THEN 20100
1140 IF BEFEHL$="SAVE"ORBE$="SICHERN"THEN 20000
1150 :
1160 I=1
1170 IFMID$(BE$,I,1)=" "THENVE$=LEFT$(BE$,I-1):OB$=RIGHT$(BE$,LEN(BE$)-I):GOTO2000
1180 IF I <> LEN(BEFEHL$)THEN I=I+1:     GOTO1170
1190 PRINT"[158][193]EH - ICH MUSS ZUGEBEN DASS ICH DAS"
1192 PRINT" NICHT KANN!":GOTO 1000
1195 :
1198 :
1199 :
2000 IF VERB$<>"LIES" AND VERB$<>"LESE" THEN 2100
2010 IF OB$<>"SPRUEHEREI" OR RAUM <>14 THEN 2030
2020 PRINT"[158][196]A STEHT :  '[196]ER [201]MPERATOR IST DOOF'":GOTO 60080
2030 IF OB$<>"AUTOMAT"    OR RAUM <>11 THEN 2040
2031   PRINT"[158][196]U LIEST : '[194]ITTE WERFEN SIE IHR GANZES"
2032 PRINT"            [199]ELD EIN'":GOTO 60080
2040 IF RIGHT$(OB$,3)<>"BOX" OR PDBOX=0 THEN 2050
2041 PRINT"[205]ASTER-[205][205] [211]OFT  -  JETZT MIT UEBER"
2042   PRINT"2.000.000 [196]ISKETTEN IM [193]NGEBOT."
2043   PRINT"[204]ESEN [211]IE BITTE AUCH UNSER [208]LAKAT IN"
2044   PRINT"DER [206]AEHE DES [205]ARKTPLATZES!
2045 [137] 60080
2050 [139] OB$[179][177]"GELD" [176] GE[179][177]1 [167] 2090
2060 [153]"SYSSTR$U LIEST :   '(null)VAL(null) (null)VALRIGHT$(null)VALCLOSE(null)STR$-(null)(null)ASC(null)(null)ATN(null)VAL"
2065 [153]"             (null)LENLEFT$(null)VALRIGHT$PEEK(null) (null)STR$VAL(null) (null)VALRIGHT$(null)VAL (null)(null)(null)-"
2070 [153]"              LENLEFT$VAL RIGHT$(null) (null)VAL(null)(null)VALLEFT$(null) PEEK(null)RIGHT$(null)CHR$(null)"
2075 [153]"             (null)RIGHT$(null)STR$ (null)RIGHT$(null) (null)VAL(null)(null)RIGHT$(null) (null)(null)RIGHT$VAL(null)VAL(null)"
2080 [153]"              (null)RIGHT$LENLEFT$(null) (null)(null)(null)VAL(null) 17 MID$ATNLEFT$(null)VAL"
2085 [153]"                   PEEKVAL(null)(null)(null)ATNASC(null)!!":[137] 60080
2090 [153]"SYS    (null)OWAS HAT'S HIER NICH! (null)EI HALT"
2092 [153]"      NICH' IMMER SO AUSGEFALLEN!":[137] 1000
2097 :
2098 :
2099 :
2100 [139] VERB$[179][177]"KAUF" [175] VERB$[179][177]"KAUFE"[167] 2200
2110 [139] [201](OB$,3)[179][177]"BOX" [176] RAUM [179][177] 9 [167] 2190
2120 [139] GE[178]0 [176] GE[178]2 [167] 2180
2125 [139] DO[178]1 [167] 2180
2130   [153]"SYSSTR$U GIBST DEN (null)CHEIN EINEM (null)ASSENAUTOMAT.";
2140   [153]"(null)EIDER KLEMMT ER. STR$U BEKOMMST ZWAR DAS"
2145   [153]"(null)AG ABER LEIDER KEIN (null)ECHSELGELD."
2150   [153]"VALIN GROSSES (null)CHILD UEBER DEM ATNUTOMATEN"
2155   [153]"ERINNERT AN (null)URPHY'S CHR$ESETZ : 'STR$AGEGEN-"
2160 [153]"TRETEN LEFT$ILFT (null)UR PEEKEI ATNNDEREN!'":PDBOX[178]1:GELD[178]2:[137] 60080
2180 [139] GELD [178]0 [167] 2190
2185   [153]"SYS         STR$ATNASC(null)VAL(null) (null)RIGHT$(null)(null)(null)(null) STR$(null) STR$VALRIGHT$(null)
2187   PRINT"[158]         [199][197][204][196] '[210][193][213][211][215][197][210][198][197][206] ????":GOTO 1000
2190 PRINT"[158][196]UMMERWEISE HAST DU KEINE [203]OHLE.":GOTO 1000
2197 :
2198 :
2199 :
2200 IF VERB$<>"NIMM" AND VERB$<>"NEHME"THEN 2300
2210 IF RIGHT$(OB$,3)<>"BOX" OR RAUM<>9 THEN2220
2215 PRINT"[158][196]U, ICH GLAUB' FAST DIE MUSS MAN [203][193][213][198][197][206]!":GOTO 60080
2220 IF OB$<>"GELD" OR RA<>11 THEN 2250
2225 IF GE<>0 OR AU<>1 THEN 2250
2230 IF DO =1 OR PD =1 THEN 2250
2235 PRINT"[158][196]U STECKST DEN 17.50 [195][210] [211]CHEIN EIN."
2240 PRINT"[197]IN [194]ILD VON [198]RED [195]LEVER IST DARAUF.":GE=1:GOTO 60080
2250 IF OB$<>"BUS" OR RA<>2 THEN 2260
2255 GOTO 61000:REM FERTIG***********
2260 IF OB$<>"AUTOMAT" OR RA<>11 THEN2270
2265 PRINT"[158][206]A UND WO WILLST DU DEN UNTERBRINGEN[160]?":GOTO 60080
2270 IF OB$<>"MUELLTONNE" OR RA<>13 THEN 2280
2275 PRINT"[158][196]U WIRST DOCH NICHT EINE [205]UELLTONNE MIT"
2277 PRINT"DIR HERUMSCHLEPPEN WOLLEN?":GOTO 60080
2280 IF OB$<>"WESEN"ORRA<>5 THEN 2290
2285 PRINT"[158][196]AS PASST DEM [215]ESEN ABER GAR NICHT...":GOTO 1000
2290 PRINT"[158][215]OHER NEHMEN, SELBST WENN STEHLEN ???"
2295 GOTO 1000
2297 :
2298 :
2299 :
2300 IF VERB$<>"GIB"  AND VERB$<>"GEBE" THEN 2400
2310 IF RIGHT$(OB$,3)<>"BOX" OR RAUM <>5 THEN 2350
2325 IF PDBOX<>1THEN 2347
2330 PRINT"[158][196]U GIBST DEM [215]ESEN DIE [208][196]-[194][207][216]. [196]IESES"
2335 PRINT"LAEDT DICH ZU EINEM [196]RINK EIN. [197]INEM"
2340 PRINT"[208]ARANGALAKTISCHEN [196]ONNERGURGLER! [196]A DU"
2345 PRINT"[193]BER NICHT DURSTIG BIST STECKST DU IHN":PRINT"EIN."
2346 PDBOX=2:DO=1:GOTO 60080
2347 PRINT"[158][199]UTE [201]DEE! [200]AST DU ABER NICH'!":GOTO 1000
2350 PRINT"[158][214]ERSUCH MAL 'N ANDERES [214]ERB":GOTO 1000
2397 :
2398 :
2399 :
2400 IF VERB$<>"TRITT"AND VERB$<>"TRETE"THEN 2500
2410 IF OB$<>"AUTOMAT" OR RAUM<>11 THEN 2450
2415 IF AU<>0 THEN 2450
2420 PRINT"[158][201]NSTINKTIV LATSCHT DU EINMAL KRAEFTIG"
2425 PRINT"GEGEN DAS [196]ING. [208]LOETZLICH HOERST DU"
2430 PRINT"ES KLINGELN. [201]N GROSSEN [194]UCHSTABEN"
2435 PRINT"LEUCHTET DAS [215]ORT [202][193][195][203][208][207][212] AUF. [197]IN [199]ELD-";
2440 PRINT"SCHEIN UEBER 17,50 [195][210] FLATTERT INS"
2445 PRINT"[193]USGABEFACH":AU=1:GOTO 60080
2450 IF OB$<>"MUELLTONNE" OR RA<>13      THEN 2470
2452 IF LA <>0 THEN 2467
2455 PRINT"[158][196]U GEHST DEINEM [200]OBBY NACH : [205]UELLTONNEN";
2460 PRINT"KICKEN. [205]IT LAUTEM [199]ETOESE FAELLT DIESE"
2462 PRINT"UM. [197]IN [204]ASERSCHWERT ROLLT HERAUS. [215]AS"
2464 PRINT"MACHE [204]EUTE NICHT ALLES SO WEGWERFEN?"
2466 PRINT"[196]U STECKST ES EIN.":MU=1:LA=1:GOTO 60080
2467 PRINT"[158][200]AST DU ERWARTET NOCH EINS ZU FINDEN ?":GOTO 1000
2470 IF OB$<>"WESEN" AND RA <>5 THEN 2490
2475 IF RAUM <> 5  THEN 2490
2480 PRINT"[158][196]AS PASST DEM [215]ESEN ABER GAR NICHT...":GOTO 1000
2490 PRINT"[158][211]CHONE DEINE [194]EINE LIEBER.":GOTO 1000
2497 :
2498 :
2499 :
2500 IF VERB$<>"FRAGE"AND VERB$<>"FRAG" THEN 2600
2510 IF OB$<>"WESEN" OR GU<>0 THEN 2590
2515 IF RA<>5 THEN 2590
2520 PRINT"[158][196]U SETZT DICH ZU IHM AN DEN [212]RESEN. [197]S"
2530 PRINT"FRAGT DICH SOGLEICH OB DU EBENFALLS EIN"
2540 PRINT"[208][196]-[198]REUND BIST. [196]IESE [198]RAGE BEJAST DU"
2550 PRINT"NATUERLICH (SONST WUERDEST DU DAS HIER"
2560 PRINT"JA KAUM SPIELEN). [196]U ERFAEHRST WEITERHIN";
2565 PRINT"DASS DAS [215]ESEN [211]AMMLER DER [208][196]-[194][207][216] IST."
2570 PRINT"[204]EIDER HAT ES JEDOCH DIE AKTUELLE [193]US-"
2580 PRINT"GABE (#27411) NOCH NICHT.":FW=1:GOTO 60080
2590 PRINT"[158][215]AS IST DER [211]INN DES [204]EBENS?":GOTO 1000
2597 :
2598 :
2599 :
2600 IF VERB$<>"BENUTZ"ANDVERB$<>"BENUTZE"THEN2700
2610 IF OB$<>"INTERGALAKTISCHEN HYPEREXPRESSRAUMLINIENROUTENGLEITER" THEN 2690
2620 IF RA<>2 THEN 2690
2630 GOTO 61000:REM ****  FERTIG  ****
2690 PRINT"[158][196]U KANNST HIER NICHTS BENUTZEN":GOTO 1000
2697 :
2698 :
2699 :
2700 IF VERB$<>"TRINK"AND VERB$<>"TRINKE"THEN1190
2710 IF RIGHT$(OB$,7)<>"GURGLER" THEN 2790
2720 IF DO=0 THEN 2780
2730 PRINT"[158] [194]IN ICH DENN BESCHEUERT ???":GOTO 1000
2780 PRINT"[158] [199]UTE [201]DEE! [200]AST DU ABER NICH'":GOTO 1000
2790 PRINT"[158] [200]AT DIR DENN KEINER BEIGEBRACHT, DASS"
2792 PRINT" MAN [196][193][211] NICHT TRINKEN KANN ?":GOTO 1000
2797 :
2798 :
2799 :
3000 REM ******************************
3002 REM ***       NORDEN           ***
3010 IF RAUM= 6THEN RAUM= 2:GOTO 3050
3015 IF RAUM=10THEN RAUM= 6:GOTO 3050
3020 IF RAUM=11THEN RAUM= 7:GOTO 3050
3025 IF RAUM=14THEN RAUM=10:GOTO 3050
3030 IF RAUM=15THEN RAUM=11:GOTO 3050
3040 PRINT"[158][196]A WUERDEST DA ABER VOR'NE [215]AND LAUFEN!":GOTO 1000
3050 :
3060 PRINT"[147]         [196]U GEHST NACH [206]ORDEN !"
3070 FORI=0TO600:NEXT:GOTO 100
3100 REM ******************************
3102 REM ***       SUEDEN           ***
3110 IF RAUM= 2THEN RAUM= 6:GOTO 3150
3115 IF RAUM= 6THEN RAUM=10:GOTO 3150
3120 IF RAUM= 7THEN RAUM=11:GOTO 3150
3125 IF RAUM=10THEN RAUM=14:GOTO 3150
3130 IF RAUM=11THEN RAUM=15:GOTO 3150
3140 PRINT"[158][196]A WUERDEST DA ABER VOR'NE [215]AND LAUFEN!":GOTO 1000
3150 :
3160 PRINT"[147]         [196]U LAEUFST NACH [211]UEDEN!"
3170 FORI=0TO600:NEXT:GOTO 100
3200 REM ******************************
3202 REM ***       WESTEN           ***
3210 IF RAUM= 6THEN RAUM= 5:GOTO 3250
3215 IF RAUM= 7THEN RAUM= 6:GOTO 3250
3220 IF RAUM=10THEN RAUM= 9:GOTO 3250
3225 IF RAUM=11THEN RAUM=10:GOTO 3250
3230 IF RAUM=14THEN RAUM=13:GOTO 3250
3235 IF RAUM=16THEN RAUM=15:GOTO 3250
3240 PRINT"[158][196]A WUERDEST DA ABER VOR'NE [215]AND LAUFEN!":GOTO 1000
3250 :
3260 PRINT"[147]      [196]U LAEUFST [210]ICHTUNG [215]ESTEN!"
3270 FORI=0TO600:NEXT:GOTO 100
3300 REM ******************************
3302 REM ***       OSTEN            ***
3310 IF RAUM= 5THEN RAUM= 6:GOTO 3350
3315 IF RAUM= 6THEN RAUM= 7:GOTO 3350
3320 IF RAUM= 9THEN RAUM=10:GOTO 3350
3325 IF RAUM=10THEN RAUM=11:GOTO 3350
3330 IF RAUM=13THEN RAUM=14:GOTO 3350
3335 IF RAUM=15THEN RAUM=16:GOTO 3350
3340 PRINT"[158][196]A WUERDEST DA ABER VOR'NE [215]AND LAUFEN!":GOTO 1000
3350 :
3360 PRINT"[147]      [196]U BEWEGST DICH NACH [207]STEN!"
3370 FORI=0TO600:NEXT:GOTO 100
20000 REM *****************************
20010 REM           SAVE
20020 REM *****************************
20030 OPEN 21,8,1,"LUCK SAVE"
20040    PRINT#21,PART:PRINT#21,RAUM
20050    PRINT#21,LASERSCHWERT
20060    PRINT#21,GELD
20070    PRINT#21,PDBOX
20080    PRINT#21,DONNERGURGLER
20090 CLOSE 21
20095 PRINT"[158][211]PIELSTAND ABGESPEICHERT!":GOTO 60080
20100 REM *****************************
20110 REM           LOAD
20120 REM *****************************
20130 OPEN 21,8,0,"LUCK SAVE"
20140    INPUT#21,PART:INPUT#21,RAUM
20150    INPUT#21,LASERSCHWERT
20160    INPUT#21,GELD
20170    INPUT#21,PDBOX
20180    INPUT#21,DONNERGURGLER
20190 CLOSE 21
20195 PRINT"[158][211]PIELSTAND EINGELADEN!":GOTO 60080
50000 REM ///  HALTESTELLE (2)
50005 PRINT"[196]U STEHST AN DER [200]ALTESTELLE DER INTER-"
50010 PRINT"GALAKTISCHEN [200]YPEREXPRESSRAUMLINIENROU-"
50015 PRINT"TENGLEITER. [215]ENN DU ZUM [210]AUMFLUGHAFEN"
50020 PRINT"MOECHTEST DANN GIB 'BENUTZE INTERGALAK-"
50025 PRINT"TISCHEN [200]YPEREXPRESSRAUMLINIENROUTEN-"
50030 PRINT"GLEITER' ODER EINFACH 'NIMM BUS' EIN."
50035 PRINT:PRINT"[214]IELLEICHT SOLLTE ICH DIR SAGEN, DASS"
50040 PRINT"DU VON HIER EINEN [208]ARANGALAKTISCHEN"
50045 PRINT"[196]ONNERGURGLER (EIN [196]RINK WIE EIN [193]UTO-"
50050 PRINT"UNFALL; NAEHERES SIEHE: '[208]ER [193]NHALTER"
50055 PRINT"[196]URCH [196]IE [199]ALAXIS') U. EIN [204]ASERSCHWERT"
50060 PRINT"MITNEHMEN SOLLTEST."
50065 PRINT:PRINT"[205]OEGLICHE [210]ICHTUNGEN :  [211]UEDEN":GOTO 1000
50100 REM /// BAR  (5)
50105 PRINT"[196]U BEFINDEST DICH IN EINER DUNKLEN [194]AR."
50110 PRINT"[198]ENSTER HAT'S HIER KEINE. [193]UF EINEM [214]I-"
50115 PRINT"SOR (WIE EIN [198]ERNSEHER, NUR 7-[196]IMENSI-"
50120 PRINT"ONAL) WIRD GERADE DAS [200]ALBFINALE VON"
50125 PRINT"[210][213][206][206][201][206][199] [205][193][206] UEBERTRAGEN.[199]ERADE IS' SO'N"
50130 PRINT"ULKIGER [212]YPE MIT [199]LATZE, [211]PITZBART UND"
50135 PRINT"EINEM [212]-[211]HIRT MIT '[199]V[199]'-[193]UFDRUCK (WAHR-"
50140 PRINT"SCHEINLICH IRGENDSO'N [214]EREIN) IN DER"
50145 PRINT"[193]RENA. [213]NWILKUERLICH MUSST DU GRINSEN."
50150 PRINT"   [193]M [212]RESEN SITZT EIN ANGETRUNKENES"
50155 PRINT"[215]ESEN, VERMUTLICH AUS DEM [194]EITEGEUZE"
50160 PRINT"[211]YSTEM.":PRINT"[197]S SCHAUT DICH AN."
50165 PRINT:PRINT"[196]U SIEHST : [154][215]ESEN[146]":PRINT"[205]OEGLICHE [210]ICHTUNGEN :  [207]STEN"
50170 GOTO 1000
50200 REM ///     HAUPTSTRASSE  (6)
50205 PRINT"[196]U STEHST AN DER INTERGALAKTISCHEN [200]Y-"
50210 PRINT"PEREXPRESSRAUMROUTE, ODER PLUMP GESAGT,"
50215 PRINT"AN DER [200]AUPTSTRASSE. [201]M [206]ORDEN SIEHST"
50220 PRINT"DU EINE [204]INIENGLEITER-[200]ALTESTELLE, IM"
50225 PRINT"[215]ESTEN KANNST DU EINE [194]AR AUSMACHEN, IM"
50230 PRINT"[211]UEDEN GEHT'S IN DIE [200]AUPTSTADT. [193]N DER"
50235 PRINT"[200]AUSWAND IST EIN [211]CHILD '[218]UM [208]LAKAT'."
50240 PRINT"[197]S ZEIGT NACH [207]STEN."
50245 PRINT:PRINT"MOEGLICH [210]ICHTUNGEN :  ALLE":GOTO 1000
50300 REM ///    PLAKAT (7)
50305 PRINT"[196]U STEHST VOR EINEM GROSSEN [208]LAKAT, DAS"
50310 PRINT"EINZIGE IN DER [211]TADT UEBRIGENS!"
50315 PRINT"[196]U LIEST:   [208][196]-[194][207][216]  -  [196]AS ULTIMATIVE"
50320 PRINT"[208]APERMAG FUER JEDEN [208][196]-[198]REAK. [218]U HABEN"
50325 PRINT"[194]EI [205]ASTER-[205][205] [211]OFT, [211]INGERSTR. 11, IN"
50330 PRINT"01257 [196]RESEN UND IN JEDER [198]ILIALE. [211][207],"
50335 PRINT"JETZT WEIST DU'S!"
50340 PRINT:PRINT"[205]OEGLICHE [210]ICHTUNGEN :  [211]UEDEN, [215]ESTEN":GOTO 1000
50400 REM /// M&M  (9)
50405 PRINT"[196]U GEHST IN DEN [204]ADEN. [211]OFORT KOMMT EIN"
50410 PRINT"[194]UTLER, DER DIR DIE [202]ACKE ABNIMMT. [214]OM"
50415 PRINT"[195]HEF PERSOEHNLICH WIRST DU IN EINEN DER"
50420 PRINT"[208]RAESENTATIONSRAEUME GEFUEHRT WO DIR"
50425 PRINT"EINE [210]EIHE HUEBSCHER [205]ODELS DIE NEUSTEN"
50430 PRINT"[208][196]-[208]ROGRAMME VORFUEHREN. [196]U LEHNST ABER"
50435 PRINT"DANKEND AB."
50440 IF PDBOX THEN 50460
50445 PRINT"[196]U SIEHST DICH UM. [193]N DER [203]ASSE STEHST"
50450 PRINT"EIN [211]TAPEL [208][196]-[194][207][216]EN. [211]IE SEHEN SEHR INFORMATIV AUS!"
50455 PRINT:PRINT"[196]U SIEHST :  [154][208][196]-[194][207][216][146]"
50460 PRINT"[205]OEGLICHE [210]ICHTUNGEN :  [207]STEN":GOTO 1000
50500 REM /// INNENSTADT  (10)
50505 PRINT"[196]U STEHST IN DER [201]NNENSTADT DES [196]ORFES"
50510 PRINT"(HOERT SICH IRGENDWIE PARADOX AN, GELL?)";
50515 PRINT"[201]M [206]ORDEN IST DIE [200]AUPTSTRASSE, OEST-"
50520 PRINT"LICH VON DIR IST DER [205]ARKTPLATZ, IM [215]ES-";
50525 PRINT"TEN SIEHST DU EINE [198]ILIALE VON [205]ASTER-"
50530 PRINT"[205][205] [211]OFT DIE ICH AN DIESER [211]TELLE GRUE-"
50535 PRINT"SSEN MOECHTE! [206]ACH [211]UEDEN FUEHRT EINE"
50540 PRINT"ENGE [211]EITENSTRASSE."
50545 PRINT:PRINT"[205]OEGLICH [210]ICHTUNGEN :  ALLE"
50550 GOTO 1000
50600 REM ///  MARKTPLATZ  (11)
50605 PRINT"[196]U BEFINDEST DICH AUF DEM [205]ARKTPLATZ -"
50610 PRINT"SOFERN MAN DAS NOCH [205]ARKTPLATZ NENNEN"
50615 PRINT"KANN. [193]LLES IST SEHR FUTURISTISCH (KEIN"
50620 PRINT"[215]UNDER, DU BIST JA AUCH IN DER [218]UKUNFT)"
50625 PRINT"   [197]IN [210]OT-[215]EISSER [195]OCO-[195]OLA [193]UTOMAT"
50630 PRINT"FAELLT DIR SOFORT INS [193]UGE."
50631 PRINT"[196]U KENNST DIESEN [212]YP. [197]IN [203]/[216]8, [194]AUJAHR"
50632 PRINT"'93. [196]IE [196]INGER KLEMMEN IMMER DANN, WENN";
50633 PRINT"MAN 'WAS REINSCHMEISST."
50635 PRINT"[201]M [215]ESTEN GEHT'S IN DIE [201]NNENSTADT."
50640 PRINT:PRINT"[196]U SIEHST :  [154][193]UTOMAT"
50645 PRINT"[205]OEGLICH [210]ICHTUNGEN :  [206], [211], [215]
50650 [137] 1000
50700 [143] ///   MUELLTONNE  (13)
50705 [153]"STR$U BIST EIN EINER (null)ACKGASSE. ATNN DEN"
50710 [153]"LEFT$AEUSERWAENDEN LIEGT (null)UELL HERUM. RIGHT$N"
50715 [153]"EINER VALCKE KANNST DU DIE DAZUGEHOERIGE"
50720 [153]"(null)UELLTONNE AUSMACHEN. ATNNSONSTEN IS'"
50725 [153]"HIER TOTAL TOTE LEFT$OSE."
50730 [153]:[153]"STR$U SIEHST : CONT(null)UELLTONNEWAIT"
50735 [153]"(null)OEGLICH (null)ICHTUNGEN :  NUR (null)STEN"
50740 [137] 1000
50800 [143] ///      SPRUEHEREI  (14)
50805 [153]"STR$U GEHST DIE (null)EITENSTRASSE ENTLANG. ATNLS"
50810 [153]"DU VERSEHENTLICH EINER (null)PACE-(null)ATTE AUF"
50815 [153]"DEN (null)CHWANZ TRITTST QUICKT DIESE LAUT"
50820 [153]"AUF UND VERSCHWINDET ZWISCHEN EIN PAAR"
50825 [153]"(null)UELLCRUNCHERN. ATNN DER (null)AND UEBER DEN"
50830 [153]"(null)UELLCRUNCHERN IST EINE (null)PRUEHEREI."
50835 [153]:[153]"STR$U SIEHST :  CONT(null)PRUEHEREIWAIT"
50840 [153]"(null)OEGLICHE (null)ICHTUNGEN :  (null)ORDEN, (null)ESTEN":[137] 1000
50900 [143] ///   GASSE    (15)
50905 [153]"STR$U BIST IN EINER DUNKLEN CHR$ASSE. RIGHT$M (null)OR-"
50910 [153]"DEN KANNST DU DEN (null)ARKTPLATZ DEINES"
50915 [153]"STR$ORFES ERBLICKEN. (null)ESTLICH VON DIR IST"
50920 [153]"DEIN LEFT$AUPTQUARTIER"
50925 [153]:[153]"(null)OEGLICHE (null)ICHTUNGEN :  (null)ORDEN, (null)STEN":[137] 1000
51000 [143] ///   HAUPTQUARTIER  (16)
51005 [153]"STR$U STEHST VOR DEINEM LEFT$AUPTQUARTIER. STR$IE"
51010 [153]"(null)UER IST LEIDER VERSCHLOSSEN. (null)UN MUSST"
51015 [153]"DU WOHL ODER UEBEL DIE (null)EISE ANTRETEN."
51020 [153]"   (null)ACHDEM DU EINE (null)UELLTONNE BEISEITE"
51025 [153]"GEKICKT HAST SIEHST DU DICH UM. RIGHT$N DEM"
51030 [153]"KLEINEN LEFT$OF IST EIGENTLICH NICHTS BE-"
51035 [153]"SONDERES."
51040 [153]:[153]"(null)OEGLICHE (null)ICHTUNGEN :  (null)ESTEN":[137] 1000
51100 [143] ///  AUTOMAT  (11X)
51105 [153]"STR$U STEHST AUF DEM (null)ARKTPLATZ DEINES"
51110 [153]"STR$ORFES - SOFERN MAN DAS NOCH (null)ARKTPLATZ"
51115 [153]"NENNEN KANN. ATNLLES SIEHT SEHR FUTURIS-"
51120 [153]"TISCH AUS (KEIN (null)UNDER, DU BIST JA AUCH"
51125 [153]"IN DER (null)UKUNFT!). (null)OR DIR STEHT EIN ROT-";
51130 [153]"WEISSER LENOCO-LENOLA ATNUTOMAT WELCHEN EINE"
51135 [153]"GIGANTISCHE PEEKEULE IM ASCRONTBLECH ZIERT."
51140 [153]"(null)IE DIE WOHL DA HIN GEKOMMEN SEIN MAG?"
51145 [153]"STR$AS (null)EIL SIEHT NICH' SO AUS ALS OB ES"
51150 [153]"NOCH FUNKTIONIEREN WUERDE."
51155 [139] GELD[178]0 [167][153]"STR$U SIEHST :  CONTPEEKARES CHR$ELDWAIT"
51160 [153]"(null)OEGLICHE (null)ICHTUNGEN :  (null), (null), (null)":[137] 1000
51200 [143] ////  WESEN WARTET
51205 [153]"STR$U SITZT MIT DEM (null)ESEN AM (null)RESEN. (..."
51210 [153]"UND WAS SICH REIMT...). VALS SCHAUT DICH"
51215 [153]"SO AN ALS OB ES SAGEN WOLLTE 'PEEKIST STR$U"
51220 [153]"(null)OCH (null)ICHT (null)IEDER LEFT$IER?'."
51225 [153]:[153]"STR$U SIEHST  CONT(null)ESENWAIT"
51230 [153]"(null)OEGLICH (null)ICHTUNGEN :  (null)STEN":[137] 1000
51300 [143] ////  WESEN ZUFRIEDEN
51305 [153]"STR$AS (null)ESEN SITZT ZUFRIEDEN AN EINEM"
51310 [153]"(null)ISCH IN DER VALCKE UND SCHMOEKERT IN DER"
51315 [153]"(null)STR$-PEEK(null)(null)."
51320 [153]"STR$IE PEEKAR IST ANSONSTEN LEER. (null)O FRUEH AM"
51325 [153]"(null)ORGEN IST HALT NOCH NICHT SO VIEL (null)OLK"
51330 [153]"UNTERWEGS!"
51335 [153]:[153]"(null)OEGLICHE (null)ICHTUNGEN :  (null)STEN":[137] 1000
55000 [143] ///////  TITEL  ////////
55010 [153]"LOAD	            (null)TERNEN - LEFT$ERO"
55020 [153]"SYSTOANDPOSNEWNEWPOSANDTOCONTTOANDPOSNEWNEWPOSANDTOSYSTOANDPOSNEWNEWPOSANDTOCONTTOANDPOSNEWNEWPOSANDTOSYSTOANDPOSNEWNEWPOSANDTO";
55030 [153]"CONTTAB(USRFRENEWNEWWAITFREUSRTAB(SYSTAB(USRFRENEWNEWWAITFREUSRTAB(CONTTAB(USRFRENEWNEWWAITFREUSRTAB(SYSTAB(USRFRENEWNEWWAITFREUSRTAB(CONTTAB(USRFRENEWNEWWAITFREUSRTAB("
55040 [142]:[143] ********************
60000 [143] ****************************
60005 [143] ****     HILFE          ****
60010 [153]"LOADATNLSO NOCHMAL:"
60015 [153]"PEEKEI (null)ICHTUNGEN REICHT DER ATNNFANGSBUCH-"
60020 [153]"STABE, BEI (null)ERBEN BITTE GEGEBENENFALLS"
60025 [153]"DAS (null)BJEKT DAZUSCHREIBEN UND IMMER AL-"
60030 [153]"LES KLEINSCHREIBEN."
60035 [153]"(null)OEGLICHE (null)ERBEN :"
60040 [153]"N,NORDEN, S,SUEDEN, O,OSTEN, W,WESTEN"
60045 [153]"HILFE, VERBEN, BLICK, BLICKE, LISTE, IN-";
60050 [153]"VENTAR, LOAD, LADE, SAVE, SICHERN"
60055 [153]"ASCOLGENDE (null)ERBEN BENOETIGEN EIN (null)BJEKT:"
60060 [153]"LIES, LESE, KAUF, KAUFE, NIMM, NEHME"
60065 [153]"GIB, GEBE, TRITT, TRETE, FRAG, FRAGE"
60070 [153]"BENUTZ, BENUTZE, TRINK, TRINKE"
60080 [153][163]28)"CONT - (null)ASTE - WAIT"
60090 [151] 198,0:[146] 198,1:[137] 100
60100 [143] *****************************
60105 [143] ****     LISTE           ****
60110 [153]"LOADSTR$U BESITZT FOLGENDE STR$INGE :"
60115 [139] GELD[178]1 [167] [153]"EINEN 17,50 LEN(null) (null)LENLEFT$VALRIGHT$(null)"
60120 [139] PDBOX[178]1 [167] [153]"EINE  (null)STR$-PEEK(null)(null)"
60125 [139] LASER[178]1 [167] [153]"EIN   (null)ASERSCHWERT"
60130 [139] DO[178]1[167][153]"EINEN STR$ONNERGURGLER"
60140 [153]:[137] 60080
61000 [143] *****************************
61010 [143]           FERTIG
61020 [143] *****************************
61030 [151] 49152,LA:[151]49153,DO
61040 [153]"LOADPRINT(null)UPER, STR$U HAST DAS ATNDV GELOEST. (null)AJA,"
61050 [153]"SO SCHWER WAR'S JA AUCH NICHT."
61060 [153]"ASCREU STR$ICH TROTZDEM AUF DIE"
61070 [153]"VALNDVERSION"
61080 [137] 61080
63000 [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
63010 [153]"LOAD(null)O ATNDVENTURER.
63020 PRINT"[196]IE [211]TORY UND DEINE [193]UFGABE KENNST [196]U"
63030 PRINT"JA - [196]U MUSST ZUM [210]AUMHAFEN GELANGEN."
63040 PRINT"[196]A DIESER [212]EIL NUR ALS [215]ERBUNG UND"
63050 PRINT"[197]INSTIMMUNG GEDACHT IST IST ER RELATIV"
63060 PRINT"LEICHT. [215]ENN [196]U IHN GELOEST UND [204]UST"
63070 PRINT"AUF MEHR DAVON HAST DANN SCHREIB' MIR"
63080 PRINT"[196]EINE [201]DEEN."
63090 PRINT "    [201]CH ZAEHL AUF [196][201][195][200].
63100 [153][163]25)"PEEKANANA MID$ONES"
63110 [137] 60080